home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / prclp2 / printclp.frm < prev    next >
Text File  |  1995-05-08  |  1KB  |  40 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "PrintClip"
  5.    ClientHeight    =   0
  6.    ClientLeft      =   -1890
  7.    ClientTop       =   30
  8.    ClientWidth     =   1875
  9.    Height          =   405
  10.    Icon            =   PRINTCLP.FRX:0000
  11.    Left            =   -1950
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   0
  16.    ScaleWidth      =   1875
  17.    Top             =   -315
  18.    Width           =   1995
  19. End
  20. Sub Form_Load ()
  21.     windowstate = 1
  22. End Sub
  23.  
  24. Sub Form_Resize ()
  25.     If windowstate <> 1 Then
  26.         windowstate = 1
  27.         Const CF_TEXT = 1   ' Define bitmap format.
  28.         On Error Resume Next    ' Setup error handling.
  29.         If Clipboard.GetFormat(CF_TEXT) Then
  30.             temp$ = Clipboard.GetText(CF_TEXT)  ' Get Clipboard text.
  31.             printer.Print temp$
  32.             printer.EndDoc
  33.         Else
  34.             Msg$ = "There is no text on the Clipboard."
  35.             MsgBox Msg$ ' Display error message.
  36.         End If
  37.     End If
  38. End Sub
  39.  
  40.